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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM TORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IPM CORP 1976 
3 COPY LOG7812 ** MAP EC HISTORY ** 00259090 2c36 201 A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
LOK RK OR OR RR a kK ak Rk tok doko 3 dak dk kkk ko ok 202 CK ROI III III III II I I ok kk tok ok 
5 * x 203 oR RRR RIO kk kk rR RI RRR ack i ke ke te ke ke i keke fk ak 
6 * IK PREREQUISITES * eK * 204 ** kK 
J] * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * * 
8 * NOWE * 206 ** TO LOCATE THE CORRECT RULE ae INVOKE, TO OBTAIN THE PROPER He 
9 * * 207 ** PARAMETERS TO PASS TO THE TU* AND TO PASS TO THE OPERATOR ** 
10 RRR RK KK RK tk kk dk kK Rokk ke dk kk KK Ok 208 ** THE INDICATED MESSAGE(S). ree APE FOUP TABLES USED FOR THIS eK 
11 * * 209 ** PURPOSE THEY ARE: * K 
12 * * XK MODIFICATIONS H He * 210 ** * * 
13 * * 211 ** STEP AND RULE ADDPESS TABLE > 
14 * CHANGES MADE TO MEET PROGKAM REQUIREMENTS * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
16 RRR ROR IO oR RR tO ig tk io IOI go lak i dea ok kok ok ok 214 ** ENTPIES ARE AS FOLLOWES * 
17 * * 215 ** A AN ADDRESS OF THE RULE DC START AFPEA * x 
18 * 7K REA'S INCORPORATED * * 216 ** B THE STEP NUMBEF IN DECIMAL % 
19 * * 217 ** AN EQUATE FOR THE STEP NUMBER * & 
20 * NONE * 218 ** * & 
21 * * 219 ** RULE INFORMATION TABLE ee 
2D KKK RR RI II CR III ARI IOR I R R FIO  R  R dO cok 220 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO FXECUTE Ke & 
23 * * 221 ** THE APPROPPIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 
24 * 3K SPECIAL INSTRUCTIONS * *K * 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS 7K 
25 * * 223 ** INDICATED WITH A X'OOOO! FOP THE ROLE EQUATE. ** 
26 * NONE * 224 ** ** 
27 * * 225 ** SQOUES * 
DB Fe Re Fe Ra He fe ae oe ek eo eh oe 2 he kee te oe fe 2 ke ok 2k i oe oe SR RR kK ROR RR tak kkk kk ak ak 226 ** A) RULE EQUATE X*'0100! a 
29 * * 227 ** B) ADDPESS OF THE YES LEG RULE ok 
30 * ek Ak E. C. HISTORY * ** * 228 ** * x 
31 * * 229 ** SFIXT * & 
32 * DATE 17DEC76 DATE 18JAN77 DATE OUMARTT DATE 10JUN77 * 230 ** A) RULE ECUATE X'0101'! 7K 
ai : E.C. 578486 re Cw 578573 E.C. 578638 E.C. 578625 4 ee ste ADDRESS OF MESSAGE TO PRINT aN 
35 * DATE QIMAR78 DATE DATE DATE * 233 ** SSTOP  & 
36 * E.C. 755285 E.Cs B.C. Ee Gx * 234 ** A) PULE EQUATE X'0102! * * 
37 * * 235 ** B) ADDRESS OF MESSAGE * % 
QQ KKK HK RK RK KR ROK OK RR RO RK Io kk kkk feo ok 236 ** eK 
002500 4QO 17812 STAPT X'2500! STAPT ADDRESS OF ALL !'Tt TYPE PROG 237 ** $GOTO ** 
000100 41 @QUES EOQU X¥'0100! EQUATED VALUE FOF MDI STATEMENT 238 ** A) RULE EQUATE X'0200° * 
000101 42 @FIXT EQU X'0101! EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE %* 
000102 43 @STOP EQU X'0102! ECUATED VALUE FOR MDI STATEMENT 24Q ** C) NAME OF MAP TO GO TO * & 
000200 44 @GOTO EQOU xX¥'Q2008 EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * * 
000201 45 @CALL FOU X¥'0201! EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FORK EXTERNAL OR INTERNAL REFERENCE ok 
000300 46 DINPT EQU X'0300! EQUATED VALUE FOR MDI STATEMENT 244 ** al 
000400 U7 @QUXX EQU xX'o4uoo?! eOUATED VALUE FOR MDI STATEMENT 245 ** SCALL * * 
000500 “8 ATUXX EQOU X*0500° EQUATED VALUE FOR MDI STATEMENT 246 *x A) RULE ECUATE X*'0201! % & 
000600 49 @NVLD EQU X¥'0600! EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDRESS OF MESSAGE HK 
000000 50 EO EQU X'0000! EQUATE FOR EQUAL 248 ** C) NAME OF MAP TO CALL *& 
000004 51 NE EQU x'0004! EQUATE FOF NOT EQUAL 249 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000008 52 HI EQU x'O0008! EQUATE FOR HIGH 250 ** E) INDICATOR FOR EXTEPNAL OP INTERNAL REFERENCE * 
0O0000C 53 NH EQU xX'000Cc! EQUATE FOR NOT HIGH 251 ** * % 
000010 54 LO EQU X'0010' EQUATE FOR LO 252 ** S$INPT * 
000014 55 NL EQU X*OOTKE EQUATE FOR NOT LOW 253 ** A) FOLE EQUATE X*'0300! * 
000010 56 LT EQU X'0010!? EQUATE FOR LESS THAN 254 ** B) INPUT TYPE (EBCDIC OF HEX) * 
00000C 57 LE EOU X'QQ0C! EQUATE FOR LESS THAN OR EQUAL TO 255 ** C) ADDRESS OF YES LEG ROLE * 
000008 58 GT EQU xXx'0008' EQUATE FOR GREATEF THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA ce 
000014 59 GE EQU x'00148 EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPUT DATA * 
000200 60 ON EQU x*0200! EQUATE FOR ON 258 ** F) LOWEK LIMIT OF GOOD DATA * x 
000202 61 OF EQU X'0202'8 EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA 3k 
000204 62 MX EQU X'O2048 EQUATE FOR MIXED 260 ** ** 
000000 63 EBC EQU x'0000! EQUATE FOR EBCDIC DATA [TRANSFER 261 ** S$QOUXX * 
000001 64 HEX EQU x'0001' EQUATE FORK HEX DATA TRANSFER 262 ** A) RULE EQUATE X*O4O0! *x 
000001 65 XTRNL EQU x'0001°8 EQUATE FOR EXTERNAL REFEFENCE 263 ** B) ADDPESS OF YES LEG RULE ** 
000000 66 INTRNL EOU x'oooo?t EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS (INITIAL ** 
000000 67 PARM EQU X?*00008 EFOQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS SECONDARY) * 
000001 68 DA FOU x'0001° EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER J BYTES ae 
900002 69 UA FOU xXx'0002! EQUATE FOR UNIT ADDRESS 267 ** F) PARAMETER TO PASS TO TU * & 
000000 70 DUMMY EOU X'0000! DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
001800 72 PID EQU *-xY'QDOO! ADDRESS OF MDI HEADER 269 ** * 
000232 73 PTYPE EQU *—-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 270 ** S$TUXX ** 
09180C 74 STEPNUM EQU PID+X*'QOOC! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE xX*0O500! ** 
00180E 75 OPWD1 U PID+X'OQOOE! ADDRESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG FPULE ** 
001810 76 OFWD2 EQU PID+xX'0010!? ADDRESS OF OPTION WORD TWO 273 ** C) TU BRANCH TO ADDRESS x 
001818 77 TUSTATUS EQU PTD+X'0018! ADDRESS OF TU STATUS WORD 2TH ** D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
00181A 78 TUWORK EQU PID+X'OO1A® ADDRESS OF TU WORK AREA 275 ** E) LENGTH OF COMPARED RESULTS ** 
O0O0189A 79 TUPARMN1 EQU PID+X*OO9A? ADDRESS OF PARM POINTER 276 ** F) MASK FIELD FOR COMPARE ee 
00189C 80 TUPARM2 EQU PID+xX'O0O9C! ADDRESS OF PARM 2 FOINTER 277 ** G) LENGTH OF PARAMETER IN BYTES ee 
00189E 81 TUPARM3 EQU PID+X*O09E!? ADDRESS OF PARM 3 POINTER 278 ** H) PARANETEP TO PASS TO THE TY oe 
0018A0 82 TUPARMGY EQU PID+X*OOAO! ADDRESS OF PARM 4 POINTER 279 ** IT) STORE ADDRESS FOR FIFST 8 WORDS OF PARAMETER ek 
0018 A2 83 TUPARMS EQOU PID+X'OOA2!* ADDRESS OF PARM 5 POINTER 280 ** eo 
OO18A4 84 TUPARM6 EQU PID+X'OOA4!? ADDRESS OF PAPRM 6 POINTER 281 ** SNVLD * 
0018A6 85 TUPARM7 EQU PIND+X*OOA6! ADDRESS OF PAFPM 7 POINTER 282 ** A) RULE ECUATE X*'0600! * & 
0018A8 86 TUPARM8B EQU PID+X*OOA8!* ADDRESS OF PARM 8 POINTER 284 **x ** 
OO18 AA 87 TUPAPM9 EQU PID+X'OOAA'* ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE ek 
OO18AC 88 TUPARM10O EQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * & 
OO18AE 89 TUPARM11 EQU PID+X'OOAE* ADDRESS OF PARM 11 POINTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B9 90 TUPARM12 EQU PID#+X*OOBO! ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTRIES APE AS FOLLOWES: ** 
0018B2 91 TUPARM13 EQU PID#+X'QOB2! ADDRESS OF PARM 13 POINTER 289 ** * x 
0018 B4 92 TUPARM14 EQU PID+X*00 BY? ADDRESS OF PARM 14 POINTER 290 ** A NAME OF ENTRY POINT ** 
001886 93 TUPARM15 EQU PID+X*tOOB6'! ADDRESS OF PARM 15 POINTER 291 ** B ADDRESS OF ENTRY POINT RULE TABLE * 
0018B8 94 TUPAFM16 EQU PID+X*OOBS8! ADDRESS OF PARM 16 POINTER 292 ** a % 
OO18BA 95 TUMSGWTR EQU PID+X'OOBA® ADDRESS OF -> TO COMMON MSG WEKITER 293 ** THE ENTRY POINT TAELE END IS INDICATED BY A X*O0000! *& 
OO0O18BE 96 TUUA EQU PID#X"OOBE! ADDRESS OF UNTT ADDRESS IN EBC 294 ** * & 
0013C0 97 TUDA EQU PID+X*00CO0! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE *% 
Q0018C2 98 TUBUFF EQU PID+xX*QQC2'° ADDRESS OF LAST USED WORD IN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR *& 
0018C4 99 TULAST EOU PID+X'O0OC4! ADDRESS OF LAST ADDRESSABLE WORD 297 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: *% 
0018C6 100 TURESULN E PID#X*Q0C6! ADDRESS OF LENGTH OF TU FPESULTS 298 ** * 
0018C8 101 TURESUL EQU PID+xX'O00OCB! ADDRESS OF TU RESULTS LD 299 ** A) EQUATE FOR START OF MESSAGE BLOCK ** 
Q0018FC 102 MAPNAME EQU PID+X*"OOFC'* ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBER OF LINES OF MESSAGE ** 
001948 103 TUINPT EQU PID+xX'0O148! ADDRESS OF SINPT DATA 301 ** C) LENGTH OF FOLLOWING LINE ** 
00196E 104 FARMARA EQU PID+X'O16E! ADDRESS OF SINPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE ** 
0019B8 105 @DCADD1 EQU PID+X'O1B8'! MDT POINTER 303 ** E) LENGTH OF FOLLOWING LINE * x 
0019BA 106 @DCADD2 EQU PID+X*O1BA* MDI POINTER 304 ** F) SECOND LINE OF MESSAGE ** 
0019C4 107 SUPSTAT EQU PID4+X'Q1C4! ADDRESS OF MDI STATUS 305 ** G) ETC. ** 
0019D0 108 DEVADD EQU PID4#X'O1D0! ADDFPESS OF DEVICE ADDRESS TABLE 0O 306 ** ¥% 
OQ0019DA 109 DEVADD! EOU PID+X*O1DA* ADDRESS OF DEVICE ADDRESS TABLE 1 307 0 OR RR gg RoigGi tat iom rR RR fotki iO ri OR fo takai ick 
OO019 EY 110 DEVADD2 EOU PID+X*O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 CTOs TESTS STS SSS SE SSS TSS ESS SESE SSS SSS RTT SS TT STS CT PT ST TST TST SST TST TT TT STS SSS 
0019FE 111 DEVADD3 EQU PID+X"'O1EE! ADDRESS OF DEVTCE ADDPESS TABLE 3 
0019F8 112 DEVADD& EQU PID4X*O1F8* ADDRESS OF DEVICE ADDFPFESS TABLE 4 
00 1A02 113 DEVADDS EQU PID#X'0202'° ADDRESS OF DEVICE ADDRESS TABLE 5 
OO01A0C 114 DEVADD6 FOU PID+X*'0O20C'! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 One DEVADD7 E nee i al a ADDRESS OF DEVICE ADDPESS TABLE 7 
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17812 --~ DISK WRITE TEST P/N=1635245 EC=755285 PAGE 11 T7812 --- DISK WRITE TEST P/N= 1635245 EC=755285 PAGE 11A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT TBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0033DC 402F 35B0 0000 2374 T5S1R CWI 0, HEADO MISCOMPARE CTR FOR HDO = O 0034C6 0006 2489 DC X'0006' BYTE COUNT FOR READ SECTOR ID 
0033E2 1804 2375 JNE 7515s NO 0034C8 2FD4 2490 DC A (SCTID) SECTOR ID DATA ADDRESS 
0033E4 802B 353A 18C9 2376 CR ZEROO, TURESUL+1 MDI BYTE 2 = 0 2491 * 
0033EA 1045 2377 JE T51T EXIT 2492 * 
Bo33rs 6832 350K COT 3348 TS BT ets aS eRe eEass 2 ie 
2380 * 0034CA 0005 2495 SKDCB DC x'Q0005* SEEK DCB 
2381 * 0034CC 0000 2496 DC xX *0000* BIT 0-3=03; BIT4=DIRECTION; 5-15=DIFFER 
0O033F6 882B 35C0 35B8 2382 T51I CW EROSV, EROO HD 0 CTR PASS1 = HDO CTR PASS2 ? OO34CE 0000 2497 DC Frgt 
O0033FC 1001 2383 JE T51W YES 0034D0 0000 2498 DC Ftgot 
OO33FE 4AU4B 2384 TBTS Ane oR FAILURES NOT CONSISTENT 0034D2 0000 2499 DC X*0000° O-7 = HEAD:8-15 NOT USED 
003400 882B 35BC 35B0 2385 T51W CW DOSsv, EADO HDO CTR PASS1 = HDO CTR PASS2 ? 0034D4 0000 2500 DC A (*-*) CHAIN ADDRESS 
003406 1001 2386 JE T51Y YES 0034D6 0000 2501 DC For NOT USED 
003408 4aA4B 2387 TBTS (Rage FAILURES NOT CONSISTENT 0034D8 0000 2502 DC F'Q? NOT USED 
OO34O0A 6802 3476 2388 T51¥ B 511 EXIT 2503 * 
2389 * 2504 ***** CYCLE STEAL STATUS DCB ******** 
OO340E 6E0D 3454 2390 RDID1 MVW R6 ,T51042 SETUP RETURN ADDRESS 2505 * 
003412 6803 36D6 2391 BAL $ROID , RE READ ID O034DA 2000 2506 CSDCB DC X*2000° CONTFOL WORD 
003416 38DC 2392 C A SERRS) ERROR 0034DC 0000 2507 DC FtQrt NOT USED 
003418 4CA1 2393 TBTR 4 ER) O034DE 0000 2508 DC F'o?t NOT USED 
QO341A 1018 2394 JOFF 51 0034EO0 0000 2509 DC Ftot NOT USED 
00341C 4CAY 2395 TBIR iE CSA) CYCLE STEAL STATS ? O0034E2 0000 2510 DC Fto?t NOT USED 
OO341E 6800 38DC 2396 BOFF ERRE RETURN OO34E4 0000 2511 DC Fto?! NOT USED 
003422 8828 2FEE 35C8 2397 MVW CSBUF+2,STATS GET CS STATS OO34E6 0008 2512 DC x*o008* 4 WORDS OF STATS 
003428 4524 35c8 2398 MVA STATS ,R5 OO34E8 2FEC 2513 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
00342C 4D83 2399 TBTR R5,3 NO RECORD FOUND 2514 * 
00342E 1210 2400 JON 1 YES 2515 ***** HRITE DCB **###*eXKES 
003430 4D87 2401 TBTR AB? Ty UNSAFE 2516 * 
003432 1211 2402 JON 514 YES OO34EA 0001 2517 WRDCB DC x*ooo1' WRITE CONTROL WORD 
003434 4D81 2403 TBTR Ae 1) SYNC CHECK OO034EC 0000 2518 DC Ftot NOT USED 
003436 1207 2404 JON 513 YES OO34EF 0000 2519 DC X*0000 * 0-7=0;8-15 = FLAG BYTE 
003438 4D88 2405 TBTIR R5 ,8) FILE DATA OK ? 0034FO 0000 2520 DC x *Q000' SERCH ARGUMENT CYLINDER 
OO0343A 1205 2406 JON 13 YES 0034F2 0000 2521 DC x*0000'* SEARCH ARGUMENT HEAD-SECTOR 
00343C 4D8E 2407 TBTR (R5, 14) BUFFER PARITY OK 0034F4 0000 2522 DC A (*-*) CHAIN ADDRESS 
00343E 1001 2408 JOFF 7514 NO 0034F6 0000 2523 DC F*O! BYTE COUNT 
003440 4A48 2409 TBIS Boe ATTACH BUFFER PARITY OO34F8 0000 2524 DC A (*-¥*) WRITE DATA ADDRESS 
003442 GAGA 2410 T514 TBTIS R2,10) ERROR OTHER THAN SYNC ON FILE D CK 2525 * 
003444 5001 2411 J 16 2526 *****x VERIFY DCB HH KK 
003446 GAT 2412 T5113 TBTS R2,/7 SYNC OP FILE DATA CHECK 2527 * 
003448 4029 35B8 0001 2413 T516 AWI ERO INC HDO READ ERPOR CTP OO34FA 200C 2528 VRDCB DC X*200C* CONTROL WORD 
O0344GE 5001 2414 J ¢§ 10 0034FC 0000 2529 DC Ftg? NOT USED 
003450 4A4%6 2415 7511 TBTS (R2,6) NO RECORD FOUND OO34FE 0000 2530 DC X'0000* 0-7=0;8-15 = FLAG BYTE 
003452 6802 0000 2416 T510 B *-* RETUPN TO CALLER 003500 0000 2531 DC X¥*00008 CYLINDER 
2417 * 003502 0000 2532 DC X*0000° HEAD - SECTOR 
2418 * 003504 0000 2533 DC A (*-*) CHAIN ADDRESS 
003456 4aA41 2419 £512 fTBTS aes 1) UNSAFE 003506 0000 2534 DC FYOQ* BYTE COUNT 
003458 6802 3476 2420 B 51 EXIT 003508 0000 2535 DC A (*-*) VERIFY DATA ADDRESS 
00345C 402E 35B4 0001 2421 T51A SWI 1,GDSE0 DEC GOOD SECT CTR (HEADO) 2536 * 
003462 6802 3390 2422 B 7513 2537 ***** READ DCB HK KK 
003466 4C54 2423 T51AA TBIS R4,20 RFCAL 2338 * 
003468 4C53 2424 T51CC TBTS R4,19 INTERRUPT OO350A 2009 2539 RDDCB DC xX*20098 READ DCB CONTROL WORD 
OO346A 8828 2FEE 18CC 2425 MVW SBOF+ ,LURESUL+4 00350C Q000 2540 DC Ftgr NOT USED 
003470 5002 2426 J T5177 EXIT 00350E 0000 2541 DC X*Q000! 0-7=0, 8-15 = FLAG BYTE 
003472 4C55 2427 T51BB TBIS P4,21) SEEK 003510 0000 2542 DC X'OO0008 SEARCH ARGUMENT CYLINDER 
003474 50F9 2428 J 51¢C 003512 0101 2543 DC X'0101'8 SEARCH ARGUMENT H-R 
2429 T51T TXIT EXIT 003514 0000 2544 DC hk (*-*) CHAIN ADDRESS 
003476 6802 392C 24304T51T B SCON X PRETUPN TO MDI CONTROLLER 003516 0000 2545 DC FtO* BYTE COUNT 
D3 7 4 ROR OR ORI III III OR Gk a dik ack ica 003518 0000 2546 Dc A (*-*) READ DATA ADDRESS 
2432 * 2547 * 
2434 COPY T78DCB O1DEC76 2548 **** WPITE SECTOR ID SKEWED KH 
2435 ** (T78DCR) 2549 * 
QU ZG RRR ARH RH A HR I HR HR KK IO RE HK A EK AHHH YD 1/7 6 EE ERIK KEK 00351A 0003 2550 WKDCB DC X'0003! CONTROL WORD 
2437 * 00351C 0000 2551 DC X'O0008 NOT USED 
2438 * DCB TABLES AND Dec's 00351E 0000 2552 DC A (*-* O-7 = PHYSICAL SECTOF # MINUS ONE 
2439 * 003520 0000 2553 DC A (*-* NOT USED 
2 UU 0 SCI OR RIOR IOC I IOI II I Sak RoR i aca ae dk ok ok 003522 6000 2554 pc A (*-* NOT USED 
2441 * 003524 0000 2555 DC Ah (*-* CHAIN ADDRESS 
2U4U2 ***** DTAGNOSTIC DCB RA KK 003526 0006 2556 DC X*O006! BYTE COUNT 
2uUu3 * 003528 3560 2557 DC A (WRSID) ADDR OF SECTOR TD DATA 
O0347AK 2008 2444 DGDCB DC x'2008! DIAGNOSTIC DCB 2558 * 
00347C 0000 2445 DC xX*'0000' NOT USED 2559 **** READ SECTOR ID SKEWED eK Kk 
OO0347E 0000 2446 DC A (*-* 0-7 = PHYSICAL SECTOR # MINNS ONE 2560 * 
003480 0000 2447 DC X*0000 ! NOT USED 00352A 200B 2561 RKDCB DC X'200B! CONTROL WORD 
003482 0000 2448 DC xX¥'0000' NOT USED 00352C 0000 2562 DC X*'O000' NOT USED 
003484 0000 2449 DC Btaach CHATNING ADDPESS 00352E 0000 2563 DC X*'OQO00! O-7 = PHYSICAL SECTOR # MINUS ONE 
003486 0100 2450 DC xX'0100! BYTE COUNT 003530 0000 2564 DC X'0000' NOT USED 
003488 0000 2451 DC A (*-*) DATA ADDRESS 003532 0000 2565 DC X*'0000! NOT USED 
2452 * 003534 0000 2565 DC LT bape) CHAIN ADDRESS 
24u53 * 003536 0006 2567 DC X'0006! BYTE COUNT FOR READ SECTOR ID 
aes igi RECALIPBRATE DCB ****#*#%% ~ 003538 2FD4 g2ee x DC A (SCTID) SECTOR ID DATA ADDRESS 
00348A 0007 2456 CLDCB DC X'0007' RECALIBPATE DCB 2570 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
00348C 00000000000000000 2457 DC TA (*-*) 00353A 0000 2571 ZEROO DC X*Q0008 CONSTANT ZERO 
2458 * 00353c 0001 2572 ONE1 DC X'O0001! CONSTANT ONE 
2459 ***ke WRITE SECTOP ID ** 00353E 00000000 2573 TIMEOUT DC er AGGo TIMEOUT COUNTER 
24u50 * 003542 0000 2574 TONE DC X'0000! CONSTANT FOR ADD DOUBLE 
003494 0002 2461 WSDCB DC X'0002! WRITE SECTOR ID CONTROL WORD 003544 0001 2575 DC X'0001! * 
00349C 0000 2462 DC xX'0000! NOT USED 003546 0500 2576 COUNT DC F'1280' BYTE COUNT (1280) 
00349E 0000 2463 DC A (*-* O-7 = PHYSICAL SECTOR # MYNUS ONE 003548 0000 2577 DIFF DC A (¥*-* SEEK DIFFFRENCE 
0034A0 0000 2464 DC A (*¥-* NOT USED 00354A 0000 2578 XXX DC A (*-* WORK WORD INT TO ZEPO 
O0O034A2 0000 2465 DC Ah (*-* NOT USED 00354C 0000 2579 BCNT DC X*0000* BYTE COUNT 
OO34A4 0000 2466 DC A (*¥-* CHAIN ADDRESS 00354E 0000 2580 JOE DC A (*-* WRITE PARAMETER POINTER 
O0034A6 0006 2467 DC X¥*'0006! BYTE COUNT 003550 0000 2581 JOE1 DC A (*-* SAVE LOC FOR PAPM LIST ADDPESS 
OO034A8 3560 2468 DC Ramee Tey ADDR OF SECTOR ID DATA 0903552 DEB6 2582 WDATA DC X"*DEBO! WRITE DATA 
2469 ***** READ SECTOR ID DCB ******* 003554 6BED 2583 DC X*6BED* * 
2470 * 003556 0000 2584 TABLE DC a besa | ADDR OF WRT PAR LIST FOR FORMAT RTINS 
OO34AA 200A 2471 RSDCB DC X'200A' READ SECTOR ID 003558 0000 2585 LGSEC DC X*0000! LOGICAL SECTOR # 
0034AC Q000 2472 DC X*0000! NOT USED 00355A 0000 2586 PHYSC DC Xx'0000° CONVERTED PHYSICAL SEC # 
OO34AE 0000 2473 DC X*0000° O~7 = PHYSICAL SECTOR # MINUS ONE 00355Cc 1D00 2987 CB29. DC X'1D00 CONSTANT BYTE 29 
0034B0 9000 2474 DC X*00008 NOT USED 00355E 3800 2588 FIVEQO DC X'3R008 CONSTANT BYTE 59 
0034B2 0000 2475 DC X*0000! NOT USED 003560 0000 2589 WRSID DC X'Q000! FLAG,CYLINDERK (WRT SECTOR ID DATA) 
0034B4 0000 2476 DC x'0000! CHATN ADDRESS 003562 909090 2590 DC x'Q000! CYLINDER, HEAD 
0034B5 0006 2477 DC X*'0006! BYTE COUNT FOR READ SECTOR ID 003564 0000 2591 DC X'O0000! LOG SECTOR,NOT USED 
OO34B8 2FD4 2478 DC A (SCTID) SECTOR ID DATA ADDRESS 003566 OOFF 2592 CDAT DC X'OOFF? INVALID DATA CONSTANT 
2479 * 003568 FF34 2593 WSIDT DC X'FF34' WRITE SECTOR ID TEST DATA 
2480 * 003564 5678 2594 DC X'5678! * 
2481 ***** READ SECTOR ID IMMEDIATE DCB ******* 00356C 9A00 2595 DC X'9AOO! * 
2482 * 00356E 0000 2596 SCTST DC X¥'0000' READ SECTOR ID TEST DATA BUFFER 
OO34BA 200E 2483 RIDCR DC X'200E* READ SECTOR ID 003570 0000 2597 DC X'0000° 
OO034BC 0000 2484 DC x*0000'! NOT USED 003572 0000 2598 DC x¥*O0000! * 
OO34BE 0000 2485 DC X'0000! NOT USED 003574 9000 2599 CTRO1 DC X'O0000! COUNTER 
0034C0 0000 2486 DC X*O0000! NOT USED 003576 0000 2600 CTRO2 DC X'OOO0O0! COUNTER 
0034C2 0000 2487 DC X*'0000! NOT USED 003578 0000 2601 CTRO3 DC X'OQ000* COUNTER 
0034cC4 0000 2488 DC A (*-*) CHAIN ADDRESS 00357A 0000 2602 CTROY DC X*0000! COUNTER 





17812 --- DISK WRITE TEST F/N=1635245 EC=755285 PAGE 12 E812 -=-= DISK WRITE TEST P/N=1635245 EC=755285 PASE 12A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00357C 0000 2603 CTROS DC X*0000! COUNTER 003630 336A 2718 SPL 13,23 POSITION CC CODE TO BITS 13-15 
00357E 0000 2604 CTRO6 DC x'0000! COUNTER 003632 C328 2FCE 2719 MVR R3,$TOIN * PUT IN LOG AREA 
003580 0000 2605 SAVR3 DC X'0000! SAVE APEA 003636 68D2 0000 2720 B (Rb) * RETURN TO USER 
003582 0000 2606 SAVRS DC X'0000! SAVE AREA 2121 * 
003584 0000 2607 WR2 DC X'0000' 00363A 6F05 2722 IORST DC X'6FOS! RESET I0 
003586 0000 2608 SVSEK DC X¥'0000' 00363C 2205 2723 IDCBO DC x'9908 SENSE WORD ZERO 
003588 0000 2609 LCT DC X"'0000! 00363E 0000 2724 RDATAO DC A (*—-* DATA WORD 
00358A 0000 2610 TS6AA DC X¥'0000' 003640 2105 2725 IDCB1 DC X"210 SENSE WORD ONE 
00358C 0000 2611 T56BB DC X'0000! 003642 0000 2726 RDATA DC A 
00358E 0000 2612 T56CC DC X'O00008 003644 4005 2727 IDCBCE1 DC x? 400 CE DIAG OP1 
003590 0000 2613 T56DD DC X'0000! 003646 0000 2728 CEDAT DC EW tacos SENSE DATA 
003592 0000 2614 T5S6EE DC X'0000! 003648 4105 2729 IDCBCE2 DC Xx 410 CE DIAG OP2 
003594 0000 2615 T56FF DC X¥'0000! 00364A 0000 2730 CEDAT2 DC A | SENSE DATA 
003596 0000 2616 T56GG DC X¥*00008 00364C 2F05 2731 IDCBRAP DC (OF0 ' ' READ DIAG WRAP 
003598 0000 2617 T86AA DC X'0000' 00364E 0000 2732 RAPDAT DC A (ROH SENSE DATA 
0060359A 0000 2618 T86BB DC X*00008 000232 2733 CPUID EQU X'0232° CP) ID 
00359c 0000 2619 TBACC DC x'0000! 2734 * 
00359E 0000 2620 T86DD DC X*'0000! 2736 COPY T78IO 01DEC76 
0035A0 0000 2621 T86EE DC X?00008 2737 ** (T78I0) 
O0035A2 0000 2622 TS8BH6FF DC x*o000 8 2738 AE He He A A He He Ae Be He Re a ee He He eK A YD 1 7 6 EH HH He He HR He RF i HE ee He 
0035A4 0000 2623 T86GG DC x*0000! 2739 * 
0035A6 0000 2624 T41D DC X'0000! 2740 * SUBROUTINE 
0035A8 0000 2625 T4ILP DC X'0000! 2741 * 
0035AA 0000 2626 WRLCT DC X'0000! 2742 * FURPOSE 
0035AC 0000 2627 CYLOC DC X'O0000! 2743 * 
0035AE 0000 2628 PASS1T DC A (*-* 2744 * COMPARE READ SECTOP ID DATA TO WRITE SECTOF ID DATA 
0035B0 0000 2629 HEADO DC A (*-* 2745 * NORMAL AND TEST DATA. 
0035B2 0000 2630 HEAD1 DC A (*-* 2746 * 
0035B4 0000 2631 GDSFO DC B (*¥-* 2747 * CALLING SEQUENCE 
0035B6 0000 2632 GDSE1 DC A (*-* 2748 * 
0035B8 0000 2633 EROO DC A (*-* 2749 * BAL CMPRW,P6 NORMAL) 
0035BA 0000 2634 ERO1 DC A (*-* 2750 * BAL CMPRT,R6 TEST) 
0035BC 0000 2635 HDOSV DC A (*-* 2751 * 
0035BE 0000 2636 HD1ISV DC A (*-* 2752 * RETURN 
0035C0 0000 2637 EROSV DC A (*-* 2753 * 
0035C2 0000 2638 ER1SV DC A (*-* 2754 * BXS (R6,2) - NORMAL 
0035c4 0000 2639 PATTR DC A (*-* 2755 * 
0035C6 0000 2640 CECYL DC A (*-* 2756 * 
0035c8 0000 2641 STATS Dc A (*¥-* DTS TR RR RR he a oe a 2h 2 ee hee ee ae he i ee a ae he he 2 2h ae eck he 2h ic Rc i ie Ok ie hc i hc he fe heat tc 2c ack ec ak ae oe oe ke cake oe 2c kc 
2642 2758 * 
2644 T78DPCIO O1DECT6 003650 4724 0005 2759 CMPRT MVWI 5,R7 BYTE COUNT 
2645 ** (T78DPCIO} 003654 4324 356F 2760 MVA SéTST+1,R3 ADDR OF RD SECT ID DATA (TEST 
2646 * 2/07/77 003658 4524 3568 2761 MVA WSIDT,R5 ADDR OF WR SECT ID DATA (TEST 
2647 * EXECUTE DPC INPUT/OUTPUT COMMANDS 00365C 5006 2762 J ray 
2648 * THYS ROUTINE HAS THE FOLLOWING ENTRIES: 00365E 4724 0005 2763 CMPRW MVWI COMPARE BYTE COUNT 
2649 * 3 003662 4324 2FD5 2764 MVA Serrp+4 R3 ADDP OF RD SEC ID DATA 
2650 * 1 BAL CEOP1,R6 CE DIAGNOSTIC OP1(TUPN ON DIAG MODE) 003666 4524 3560 2765 MVA WR R5 ADDR OF WR SEC ID DATA 
2651 * a 00366A 2BA6 2766 TT4Y CFNEN £3), (Re) COMPARE ID DATA 
2652 * 2 BAL CEOP2,F6 WRITE DIAG CLOCK STEP DATA 00366C 68C0 0002 2767 BE 72) BCH IF WRITE ID DATA OK 
2653 * a 003670 68D2 0000 2768 B Reyes COMPARE ERROR 
2654 * 3 BAL SENSO,?6 CF PEAD SENSE WORD ZERO 2769 * 
2655 * = DTV TO RHR HAH He He HHH He He Me Hee He He He he he he He He He ee ee ee He ee Se Fe heh he he a a i a aac ae he hc tc 2 he cake eae 2k ie oc oe oi oi ke 2 ok 
2656 * 4 RAL SENS1,R6 CE FEAD SENSE WORD ONE 2771 * 
2657 * E 2772 * SUBROUTINE 
2658 * 5 BAL WRAP,R6 PEAD DIAGNOSTIC WRAP 2773 * 
2659 * 2 2774 * PURPOSE 
oe : BXS (P6,2) RETURN zi : COVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 
VAN PRR ete t Ste Pe LS LETS SS SPSS SS SS ST SSL SS SL SL SSS SSS LS SS SS SSS SSS SSCS Se Ce SS SL SS SS 2777 * SETUP LOGICAL SECTOR # IN LOCATION ‘LGSEC! 
2663 * 2778 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PHYSC® 
2664 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 2779 * 
2665 * 2780 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 
2-66 * BIT 00 -~ SET READY 2781 * LOGICAL- X 00, 1E£, 01, , 02, 20, 03, 21, O04, 22, 05, 23, 06, 24, 
2667 * BIT 01 - PESET READY 2782 * PHYSICAL X 00, 01, 02, 03, O4, 05, 06, O07, 08, O09, OA, OB, OC, OD, 
2668 * BIT 02 - SET WRITE CLOCK 2783 * 
2669 * BIT 03 - SET READ CLOCK 2784 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
2670 * BIT 04 - INDEX PULSE 2785 * PHYSICAL OF, OF, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 1A, 1B, 
2671 * BIT 05 —- SECTOR PULSE 2786 * 
2672 * BIT 06 -— STANDARD READ DATA 2787 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 
2673 * BIT 07 - SPEED PULSE 2788 * PHYSICAL 1c, 1D, 1E, IF, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
2674 * BIT 08 - BEHIND HOME 2789 * 
2675 * BIT 09 - SET SEEK COMPLETE 2790 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 
2676 * BIT 10 - RESET SFEK COMPLETE 2791 * PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 
2677 * BIT 11 - PLO OUT OF SYNC 2792 * 
2678 * BIT 12 - PST RD/WRT CLOCK 2793 * LOGICAL- 1C, 3A, 1D, 3B, X 
2679 * BIT 13 - 2794 * PHYSICAL 38, 39, 3A, 3B, X 
2680 * BIT 14 —- 2795 * 
2681 * BIT 15 - PESET DIAGNOSTIC MODE 2796 * 
2682 * 2797 * CALLING SEQUENCE 
ZEB KH he RK he eae He hee oe ee i he te te kk RO kK RO RR IC Rak kk ak I Ratt Rk RKO ik 2 Roa i ake feof ke eo 2c 2798 * 
2684 * 2799 * BAL CONVT,R6 
2685 * 2800 * 
0035CA 6E0D 2FD2 2686 WRAP MVW 6,LSTIO SAVE ADDRESS OF LAST TO 2801 * RETURN 
0035CE 8028 19D0 364D 2687 MVB DEVADD, IDCBRAP+#1 LOAD DEVICE ADDRESS IN IDCB 2802 * 
0035D4 680C 364C 2688 TO IDCBPRAL READ SENSE WORD 1 2803 * B (TT304+2) 
0035D8 6F05 362E 2689 BNCC 7,CCERR CHECK COND CODE 2804 * 
0035DC 5601 2690 BXS (RE , 2) PETURN TO CALLER DBOS ke Ae he ate a he 2h he ae he he aye he ae 2h ah ok he ah 2c oc Ac ha i ic ke RR RRR atta kk teak ick ook take ofc ake ok ake af ote a ak ate ake ake aca oe ake 2 
2691 * ; 2806 * 
0035DE 6E0D 2FD2 2692 CEOP1 MVW R6,LSTIO SAVE ADDRESS OF LAST IO 003674 6E0D 36B4 2807 CONVT MVW TT3042%2 SETUP RETURN ADDR 
0035E2 8028 19D0 3645 2693 MVB DEVADD,IDCBCE1+1 LOAD DEVICE ADDRESS IN IDCB 003678 802B 353A 3559 2808 CB ZEh00, LGSEC+1 CK FOR LOG # ZERO 
0035F8 680C 3644 2694 IO IDCBCE4 SET DIAGNOSTIC MODE 00367E 100D 2809 JE TT 303° BCH IF LOG # IS ZERO 
0035EC 6F05 362E 2695 BNCC 7,CCFRR CHECK COND CODE 003680 802B 3559 355c 2810 CB LGSEC+1,CB29 COMP LOG TO 
0035FO0 5601 2696 BXS (RE, 2) RETUPN TO CALLEP 003686 1COD 2811 JGE RTTO1 BCH IF LGSEC EQ OF LESS THAN CB29 
2697 * 003688 4024 0002 2812 MVWY 2,R0 SETUP MULTIPLIER 
0035F2 6E0D 2FD2 2698 CEOP2 MVW TIO SAVE ADDRESS OF LAST I0 00368C E821 3559 2813 MB LGSEC+1,R0 LOG SECTOR # TIHES 2 
0035F6 8028 19D0 3649 2699 MVB DEVADD I DCBCE2#1 LOAD DEVICE ADDRESS IN IDCB 003690 7802 003C 2814 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 
0035FC 680C 3648 2700 IO TpcBc CES WRITE DIAG CLOCK STEP 003694 C028 355B 2815 MVB PO,PHYSC+1 PHYSICAL SECTOR NUMBER 
003600 6F05 362E 2701 BNCC CCERP CHECK COND CODE 003698 500C 2816 J TT304 RETURN TO CALLER 
003604 5601 2702 BXS hes 2) RETURN TO CALLER 00369A 8028 355F 355B 2817 TT303 HVB FIVE9, PHYSC+1 PHYSICAL SECTOR # 59 
2703 * 0036A0 5008 2818 J T1308 RETURN TO CALLER 
2704 * 0036A2 4024 0002 2819 RTTO1 MVWI LOAD MULTIPLIER 
003606 6E0D 2FD2 2705 SENS1 MVW LSTIO SAVE ADDRESS OF LAST IO 0036A6 E821 3559 2820 MB L6SEc+1, RO LOG SECTOR # TIMES 2 
003604 8028 19D0 3641 2706 MVB DEVADD, IT DCB1+1 LOAD DEVICE ADDRESS IN TIDCB 0036AA 7802 0001 2821 SWI RO SUBTRACT ONE 
003610 680C 3640 2707 IO IDCB1 READ SENSE WORD 2 0OO36AE C028 355B 2822 MVB 6 PHYSC+1 LOAD PHYSICAL SECTOR # 
903614 6F05 362E 2708 BNCC 7,CCERR CHECK COND CODE 0036B2 6802 0000 2823 TT304 B RETURN TO CALLER 
003618 5601 2709 BXS (26,2) RETURN TO CALLER 2824 * 
2710 * 2825 zk ko kk koioiiok kok kok im IR RR OR gi takai a ito agok kia koko ako kage gage ae ak age ag age dea age ar a 
00361A 6E0D 2FD2 2711 SENSO MVW R6,LSTIO SAVE ADDRESS OF LAST TO 2826 * 
00361E 8028 19D0 363D 2712 MVB DEVADD, IDCBO+1 LOAD DEVICE ADDRESS IN IDCB 2827 * SUBROUTINE 
003624 680C 363C 2713 TO 1D¢ BO READ SENSE WORD 1 2828 * 
003628 6F05 362E 2714 BNCC CCERR CHECK COND CODE 2829 * PURPOSE 
00362Cc 5601 2715 PXS (he 6,2) RETORN TO CALLER 2830 * 
2716 * 2831 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 
00362E 706E 2717 CCERP DC X*706E! COPY STATUS ANY LEVEL INTO R3 2832 * 
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2833 * CALLING SEQUENCE 00376A 4020 3528 3560 2948 MVA WESTD,WKDCB+14 DATA ADDR 

2834 * 003770 5012 2949 J XIO 

2835 * RAL LWSID,FP6 2950 * 

2836 * 003772 4020 3898 349A 2951 SWSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 

2837 * PETURN 003778 4020 34A8 3560 2952 MVA WRSID, WSDCBt+14 DATA ADDEK 

2838 * 00377E 5008 2953 J XIO 

2839 * BXSs (P 6) 003780 4020 3898 349A 2954 S$WSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 

284u0 * 003786 4020 34A8 3568 2955 MVA WSIDT, WSDCB+14 DATA ADDR 

2801 OOK RR RR OC IO aC ao iii loieko ak dak i lcd lok doko kaka ik ok ok 00378C 5004 Sane 2 J XIO 

2842 * 

28u3 * O0O0378E 4020 3898 347A 2958 SDIAG MVA DGDCB,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0036B6 4724 0005 2844 LWSID MVWI 5,P7 PYTE COUNT 003794 5000 2959 J xIO 
OO36BA 4324 2FD5 2845 ' AVA SéTID+1 R3 ADDR OF KD SECT ID DATA BUFFFR 2960 XEQIT 
OO36RFE 4524 3560 2846 MVA WRSID,R5 ADDR OF WR SECT ID DATA BUFFER D6 7 A RH RH HK KH HH Hee HI AR A He AK OK a eC ec ae ae A Re ae ae i afc 2 oe ale ei oe ke ake oe ake a ke KKK DO JI L765 x 
0036C2 2BA4 2847 MVFN (P3), (R5) MOV DATA FROM PD TO WR BUFFER 2962+* 
0036€C4 5600 Bae ‘ BXS P6 PETURN TO CALIER Soeuas SUB-ROUTINE 

2851 * 2965+* EXECUTE INFUT AND OUTPUT COMMANDS 

2852 * EXECUTE INPUT & OUTPUT COMMANDS ~966+* 

2353. * TO EXECUTE ALL T/O COMMANDS FROM A COMMON PLACE. : 2967+* PURPOSE 

2854 * EACH OF THESE ENTRIES SET R7 WITH THE ADKS OF ITS PAPAMETER 29684+* 

2855 * LIST AND ANY SPECIAL SWITCHES BEFOPE BRANCHING TO THE 2969+% TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

epee : SUPVR CALL. oous ee THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 

: + 

2858 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 2972+4+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 

22859 * ‘ 2973+4+* THE I/O COMMAND. 

2860 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP \ 29744% 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 

2861 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 2975+%* ISSUED BY THIS SUBROUTINE. 

2862 * 2976+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

2863 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2977+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 

2864 * ; 2978+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 

2865 * 1 BAL SRKEW,P6 READ SECTOR ID SKEWED 2979+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 

2866 * = 2980+* MYSTERY INTERRUPT ‘oe CONTROL BIT YS SET. 

2867 * 2 BAL SWKST, F6 WRITE SECTOP ID SKEWED (TEST) 29814+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN R7, SET THE 

2868 * - 2982+% EXPECTED INTERRUPT CONTROL BIT AND TSSUE THE 'SV&  STAPT!. 

2869 * 3 BAL FRWST,FP6 READ SECTOR ID SKEWED (TEST) 29834* 6. WHEN THE SOPVR RETURNS AFTEP ISSUING THE I/O COMMAND, TIMING 

2870 * . 29844+* STARTS TO DETERMINE A LOST INTERRUPT. 

2871 * 4 BAL SPIDS,F6 READ SECTOR ID (TFST) 2985+* 7. EXCEPT THE INTERRUPT AND GATHER INFOFPMATION TO DETERMINE IF IT 

2872 * if 2986+* WAS AN ERROR OF OKAY AND EXIT OFF THE INTERRUPT LEVEL. 

2873 * 5 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 2987+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 

2874 * < 23884+* 9. CHECK IF AN ERPOR WAS EXPECTED AND IF THEFE WAS RETURN. 

2875 * 6 BAL FWSEC,FR6 WPITE SFCTOP ID 2989+* 10. CHECK IF THERE WAS AN EFROR CONDITION, JF NOT RETURN. 

2876 * 2990+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 

2877 * 7 BAL SWSTS ,F6 WRITE SECTOF ID (TEST 29914+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGPESS THAT WAS 

2878 * & 2992+* ISSUED BY THIS SUBROUTINE. 

2879 * 8 BAL SDIAG ,R6 DIAGNOSTIC 299 3+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 

2880 * e 29944+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BETNG ON, 

aoe : 9 BAL XIOCS,F6 CYCLE STEAL STATUS pe COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 

: 2 + 

2883 * 10 BAL SSEEK,F6 SEEK 29974+* CALLING SEQUENCE 

2884 * . 29984+* 

eee : 11. BAL SPECL,F6 RECALIEFATE abate THIS POUTINE HAS THE FOLLOWING ENTRIES: 

. + 

2887 * 12 BAL S$RDID,F6 READ SECTOR ID 3001+* --> BAL XIoO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 

2888 * * 3002+* --> BAL XIO1 MOD PARM PRELOADED IN 'tomobt 

2889 * 13 BAL SED,R6 PEAD 30034+* --> BAL XTOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 

2890 * ; : 390044+* --> BAL XIOCS-4,RF6 AUTO CS STATUS (FOLLOWING OTHER XIO 

Sean = 14 BAL SRDVY,F6 READ VEPIFY Hae J AND DOFS NOT POST INTERRUPT STATUS) 

3 = + 

2893 * 15 BAL SWRT,R6 WRITE 3007+* RETURN CONTROL 

2894 * 3008+* 

2895 * 3009+* BXS R6,2) RETURN TO USER NO ERROP 
0036C6 4020 3898 34CA 2896 $SEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 3010+* OR R6) * RETUPN AND RETRY ON ERROR 
0036CC 5064 2897 J XIO ; 30114 RO rok Ro oi so OR Ro OO IO aki ik igi kok kkok kaktok kok ok ik dk ck 2k afc 

2898 * 003796 CB25 389A 3013+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
OO36CE 4020 3898 348A 2899 $RECL MVA CLDCB, TODCB SET UP BLOCK FOR SVC CALL 00379A 500A 3014+ J XI0O1 CS I/O'S ARE NOT RETRIED 
0036D4 5060 2900 J XIO 3015+* 

2901 * 00379C 4CAA 3016+ TBTK RG,CE RESET CS STATUS INTER ERROR INDICAT. 
0036D6 4020 3898 34AA 2902 $RDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL OO0379E 4C68 3017+ TBTS R4,CS SET 'CYCLE STEAL STATUS! IN PROGRESS 
Q0036DC OBFF 2903 MVBI X'!FF*,B3 SET BUFFER TO F'S 0037A0 4020 3898 34DA 30184+xIOCS MVA SDEB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO36DE 4524 2FD4 2904 MVA SCTID,R5 SETUP READ SECTOR ID BUFFEP AD®S 0037A6 4020 389A OOOF 3019+ — VWI X'O00F*, TOMOD SET CYCLE STEAL MODIFIER 
OO36E2 4724 0006 2905 MVWI R7 SETUP BUFFER LENGTH OO37AC 4C28 3020+ TBT inh CS) IS CS IN PROGRESS, ERROR CONDITION 
0036E6 2BAC 2906 FFN P43 Ar} INIT READ SECTOR ID BUFFER OO37AE 1213 3021+ ON To? * YES, BYPASS SAVING I/O ADRS 
O0036F8 4020 34B8 2FD4 2907 MVA Sct D,RSDCB+14 DATA ADDP 0037B0 6E0D 2FD2 3022+XIO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF EQUESTED 
QOO036EE 5053 2908 J XIO 0037B4 4324 2FDC 3023+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 

2909 * 0037B8 6D08 3898 3024+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
Q0036FO OBFF 2910 RD MVBI X'*FFt,R3 SETRD BUFFER TO ALL FS Q0037BC OF10 3025+ MVBI 16,87 * THE NUMBER OF MOVE 
Q0036F2 6DO8 3518 2911 MVW RDDCEB+14,R5 SET UP READ BUFFER ADRS OO37BE 2D64 3026+ MV FEN (R5) 422) MOVE 1 STATUS WORD AND ADJUST 
Q0036F6 4724 0100 2912 MVWI X¥'0100',R7 SET UP BUFFER LENGTH 0037CO OBFF 3027+ MVBI 255, CLEAR CYCLE STATUS BUFFER 
OO36FA 2BAC 2913 FFN R R5 CLEAR READ REUFFER 0037C2 4524 2FEC 3028+ MVA CSBOF,R5 * TO ALL OWES * 
0036FC 4020 3898 350A 2914 $RDS MVA RDOcB, ODCB SET UP BLOCK FOR SVC CALL 0037C6 OF10 3029+ MVBI 16,R7 * 

003702 5049 2915 J XIO 0037C8 2BAC 3030+ FFN R3 {R35} * 

2916 * Q0037CA 4020 2FCE 0708 3031+ MvWwr | xt6708 , SLOIN OVERLAY OLD CONDITION CODES 
003704 4020 3898 34FA 2917 SRDVY MVA VEDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 0037D0 CB25 2FDO 3032+ MVWZ SISB,R3 ZERO OUT OLD ISB VALUE 
00370A 5045 2918 J XxIO 3033+* 

2919 * 0937D4 4CATt 3034+ TBTR R4G,ER RESET ANY ERROR BEFORE I/O COMMAND 
00370C 4020 3898 34EA 2920 SWRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0037D6 4CA3 320354+XI02 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTIL BIT 
003712 5041 2921 J XIO 0037D8 4724 3894 3036+ MVA OBLK , R7 SET UP CONTROL BLOCK FOR SUPVR 

2922 * 0037DC 4CA6 3037+ TBTR RY, $LE) RESET LEVEL ERROR INDICATOR 
003714 4020 3898 352A 2923 SRKEW MVA  RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO37DE 4C6h2 3038+ TBTS P4 XT) SET EXPECTED INTR CONTROL BIT 
Q00371A OBFF 2924 MVBI X'FF*,R3 SET BUFFER TO FS 0037£0 600A 3039+ SVC TART CALL SUPVR FOR T/O COMMAND 
00371C 4524 2FD4 2925 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 3040+* 

003720 4724 0006 2926 MVWI 6,R7 SETUP BUFFEP LENGTH QOO037E2 4CAT7 3041+ TBTR R4,NTI) TS AN INTR EXPECTED 

003724 2BAC 2927 FFN RS fo} INIT READ SECTOR ID BUFFER OO37E4 6ACO 0002 3042+ BN R6,2) * NO, RETURN TO USER 

003726 4020 3538 2FD4 2928 MVA SCTID, RKDCB+14 DATA ADDR 3043+% 

00372cC 5034 oa50 Pi J XIO apaeee THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
00372E 4020 3898 351A 2931 EWKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0037E8 QODOO0 3046+ MVBI X*t00*,R5 | SET UP WORK REG FOR 'LOST INTF® 
003734 4020 3528 3568 2932 MVA WSIDT, WKDCB414 DATA ADDR QOO37EA 4CA3 3047+XI08 TBTR eo tf) HAS INTERRUPT BEEN RECEIVED 

00373A 502D 2933 J XIO O037EC 1238 3048+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 

2934 * OO37TEE 6002 3049+ SVC IDLE AILOW ANOTHER PROGRAM A CHANCE TO RUN 
00373C 4020 3898 352A 2935 SRWST MVA RKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 3050+* SUPVR WILL FETURN HERE 
003742 4020 3538 356E 2936 MVA SCTST , FKDCB4+14 DATA ADDR O037FO 7DAIT 0001 3051+ AWTI 1,R5 ADVANCE TIME OUT COUNT 
003748 5026 2937 J XIO OO37F4 18FA 2052+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 

2938 * OO37F6 4C61 3053+ TBTS RY, ER) SET ON ERROR CONTROL BIT 
0O0374AR 4020 3898 34AA 2939 S$RIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0037F8 68D2 0000 3054+ B 6f * ERR 'NO INTERRUPT! 

003750 OBFF 2940 MVBI X'FF*,R3 SET BUFFER TO FtS 3056 + RR ROR OR OR RIO Rr RoR ROR IORI tok i toguitod doo gomkeok 2&0 JF RB] 6% * 
003752 4524 356E 2941 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 3057+* 

003756 4724 0006 2942 MV WI 7 SETUP BUFFER LENGTH 3058+* SUBPOUTINE 

00375A 2BAC 2943 FFN P43 i) INIT READ SECTOR ID BUFFER 3059+* 

00375C 4020 34B8 356E 2944 MVA sch T,PSDCB+14 DATA ADDR 3060+* T/O EXECUTE ERROR HANDLING ROUTINE 

0037612 5019 2945 J XIO 3061+* 

2946 * 3062+* PURPOSE 
003764 4020 3898 351A 2947 SWKEW MVA WKDCB,IODCB SET UP CONTRCL BLOCK FOR SVC CALL 3063+* 
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3064+4+% THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 003852 1204 3180+ JON  INTRX * YES, EXIT OFF THIS INTR LEVEL IL 
3065+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 003854 4c60 3181+ TBTS gpa MT) * NO, SET MYSTERY INTP CONTPOL BIT TL 
3066+* SUPERVISOR AND IT WAS NOT ACCEPTED. 003856 F304 3182+ P3 ATTENTION INTERRUPT? IL 
3067+* 003858 1001 3183+ JE LATRE YES IL 
3068+* CALLING SEQUENCE 00385A 4cé6C 318u+ TBTS (Ra NG) ERROR, UNEXPECTED INTERRUPT IL 
3069+* 00385C 6006 3185+INTRX SV XIt EXIT THIS LEVEL VIA SUPVR TO PGM TL 
3070+* SUPVP WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 318 7 HH HHH HHH HK HH He He He He He HK He He He HH HK HH HK HH KK KK KKK KKK KEKKKKO IP ERT Ge 
3071+* 3188+* 
3072+* RETURN CONTROL 31894+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTEPPUPT 
3073+* 31904+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
30 7u+% B (R6) * RETURN TO USERS EPPOR HANDLER 319144 RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 

+ 
3 QT GH RH HK RA HH HK He HH HK He IK HH HE Re 2 ae 2 2 HC eo i 2 ee ei He 2 ae fe oe 2K Ko oi oc 2 i a i kc ok ak 2c 3193+4+* 
3077+* 00385E 4CA4 31944XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
3078+* CC O= DEVICE NOT ATTACHED 003860 6ACO 0002 31954 BN R6, “eh * YES, EXIT THIS ROUTINE 
3079+* FOR 1= DEVICE BUSY 003864 4CA8 3196+ TBTR BA 26 ) was AiTo CS IN PROGRESS 
3080+* I/0 2= DEVICE BUSY AFTER RESET 003866 1006 3197+ JOFF * NWO, CONTINUE CHECKING 
3081+* 3= COMMAND REJECT 003868 4C2A 3198+ TBT (Ray a ts c& IN AN ERR CONDITION 
50824% W= INTERVENTION REQUIRED 00386A 1002 3199+ JOFF xt1oco * NO, BCH 
3083+* S= INTERFACE DATA CHECK 00386C 68D2 0000 3200+ B R6) * cs ERROR 
40844+* 6= CONTROLLER BUSY 003870 4cé69 3201+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 
3085+* 7= 1/0 COMMAND EXCEPTED 003872 5601 3202+ BXS R6,2 GO TO USER 
3086+* 003874 4c21 3203+XIOCV TBT WAS ERROR INTR CONTROL BIT ON 

0037FC 706E 3087+XIOEP DC X'706E! COPY STATUS ANY LEVEL INTO R3 003876 1008 3204+ JOFF X10CxX * NO, EXIT THIS ROUTINE 

OO37FE 336A 3088+ SRL 13,83 POSITION CC CODE TO BITS 13-15 32054+* 

003800 C328 2FCE 3089+ MVB R3,$I0IN * PUT IN LOG OUT AREA 003878 C520 2FCF 3206+ MVB SIOIN+1, R5 GET LAST INTR CC CODE 

003804 68D2 0000 3090+ B {R8)* RETURN TO USER ERROR HANDLER 00387C F502 3207+ CBI IS THIS cCc=2 
3092] + KK KK KKK KK KK *x* ee A He i A Ik ee 2 i ee he he He he 2 ae fe he ah a fe a of oe ie 2h ee ok 2k oe ok ke ke ok KK TOA PR 76 &* OO387E 68D1 0000 3208+ BNE i sit * NO BCH TO EPROR HANDLER 
3093+* Il 003882 C520 2FDO0 3209+XIOCO MVB RS GET LAST ISB DATA BYTE AND IF CS 
3094+* SUB-ROUTINE IL 003886 6A00 379C 3210+ BN * AVAILABLE, GO AND GET IT 
3095+* TL 00388A 68D2 0000 32114 B rey ERROR 
3096+% ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '*SINTL! IL 00388E CB25 2FCA 3212+ XIOCX MVWZ épr 3,R3 CLEAR OUT OPTION 3 CNTL BITS 
3097+ TL 003892 5601 3213+ BXS  (P6,2$ RETUPN TO USER VIA REG 6 
3098+* PURPOSE TL 3214+* 
3099+* IL 3215+* I/O PARAMETER LIST 
3100+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR TL 3216+4+* 
3101+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGPFE WITH THE TL 003894 19D0 3217+#IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
3102+* EXPECTED CODE. TL 003896 37FC 3218+ DC A (KIOER) ERROR ROUTINE ADRS 
3103+* 71 003898 0000 32194IODCB DC A (#— x DCB ADPS OR LEVEL & INTR 
3104+* CALLING SEQUENCE IL 00389A 0000 3220+IOMOD DC A a MODIFIER 
3105+* TL 00389c 0000 3231+ DC A (*-* ADRS OF LAST SVC CALL 
310644 SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT IL 00389E 0000 32224 1ORSP Dc h (*-* SECOND WORD OF LAST IDCB 

+ +% 
3108+% RETURN CONTROL IL 3224+% INTERRUPT CONTROL BLOCK FOP I/O COMMANDS 
+ + 7 
3110+* svc EXIT RETURN TO USER VIA SUPVR IL 0038A0 19D0 3226+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
3111+% IL 0038A2 382C 3227+ DC A {INTOK INTERRUPT OK PETURN ADRS 
B11 D+ HR RR ORE I RRR I IC OR GR ao ia a Rk tokok dak tok doko ke TT, O0O038A4 3808 3228+ DC A anoue INTERRUPT ERROR ADRS 
3113+% IL 0038A6 0003 3229*INTCC DC X"0 NTERRUPT CODE EXPECTED 
311494+* CC O= CONTROLLER END TSB Q= ADD STATUS IL 555 an as cd CERES | 4 Es 4145 OESNS EAE SAREE AE aa EEE dead ORERE AINAT GK 
3115+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT TL 3232+4+* 
3116+* INTR 2= EXCEPTION INTERRUPT FOP 2= INCOR LENGTH IL 3233+* SUBROUTINE 
3117+%* = DEVICE END INTERRUPT INTR 3= DCB SPEC CK TL 32344+% 
3118+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 32354+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
3119+* = ATTENTION / PROGRAM CNTL INTP 5= INV STG ADPS IL | 3236+* 
3120+% 6= ATTENTION / EXCEPTION INTR 6= PROTPCT CK TL 3237+* PURPOSE 
3121+* 7= ATTENTION / DEVICE END INTR J= I-FACE DATA TL 3238+4* 
3122+* TL 32394+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

003808 706E 31234+INTER DC X'706E! COPY STATUS ANY LEVEL INTO P3 IL 3240+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 

00380A 336A 3124+ SRL 13,R3 POST TION INDICATORS IN R3 IL 32414+* TO INTERRUPT. 

00380C 4424 2FC6 3125+ MVA OPTN1,R4 SET UP BASE ADRS TL 32424+% 

003810 4c28 2126+ TBT (Ra c$) IS CS IN PROGRESS TL 3243+* CALLING SEQUENCE 

003812 1006 3127+ JOFF INTES * NO TL 3244+% 

003814 4C6A 3128+ TBTS (RY CE) TURN ON CYCLE STEAL INTER EPROR IL 32454+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

003816 6FOD 2FFA 3129+ “VW 8607, €STLB SAVE CS ERR ISB VALUE, BITS 0-7 TL 32464% 

00381A C328 2FFB 3130+ MVB R3,CSTL8+1 * AND THE COND CODE TL 32474* --> BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 

00381E 500A 3131+ J INTR1 TL 3248+* --> BAL  $CONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 

003820 4c24 2132+INTES .TBT (RU, XE) TEST EXPFCTED ATTEN / ERPOR IND TIL 32494% 

003822 1002 3133+ JOFF INTET BCH IF NOT EXPECTED TL 3250+* RETURN CONTROL 

003824 F304 3134+ CBI 4,R3 IS THIS AN "ATTENTION! TNTR IL 32514+% 

003826 1006 3135+ JE TNTR1 * YES, BCH TO END INTR SEQUENCE sme 3252+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 

003828 4C61 3136¢+INTET TBTS (Ra ER) SET FRROR ON I/O COMMAND CNTL BIT TL 32534* OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED 

00382A 5004 3137+ J nTh4 TL 3254+% 
3138+%* THE ERROR INTERRUPT USES THE SAWE TL JD eR RH KK HH ee He He ee 2 he Oe ie ee ee he 3 ei Ik He ie ee he he ac i Ae he he ae 2c 2c ik ae he ie i ae Be he ae eh ae i 2 oe ck ke oe 
31394+* ENDING SEQUENCE AS THE NOPMAL INTP TIL 003848 OFO6 3256+$CONC MVBI 6, B7 NUMBER OF BYTE TO CLEAR 
BJT HR HH HH HH He oe He eH he he he a fee ee fe fe he ee he he ae hee he he fe a 2 he 3c 2 a ce a ok ie ok ok oe ek ek eK KKK TUADRTATL OO3Z8AA OBOO 3257+ MVBI 0! * AND THE DATA TO USE 
3142+% TL OO3R8AC 4524 2FDY 3258+ MV A pévi R5 * ALONG WITH THE ADRS TO USE 
317143+* SOUBROUTINE IL 0038B0 2BAC 32594 FFN (85) x 
3144+% IL 0038B2 CB25 2FCA 3260+ MVWZ Ope 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
3145+* OKAY INTERRUPT RUNS ON INTFRRUPT LEVEL 'SINTL! IL 0038B6 4724 38A0 3261+ MVA INTBL,R7 SET 87 TO CONTROL BLOCK AND 
3146+% IL 0038BA 6014 3262+ SVC CICB * CONNECT IT TO THIS DEVICE 
314 74% PURPOSE TL 0038BC 6ADO 0000 3203+ BN (P6) * FRROP RETURN TO USEP 

+ + 
31494+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 0038C0 8828 3002 3898 32654+SCONP MVW SINTL, TODCE PUT IN LEVEL & INTR PARAMETER 
3150+* LL 0038C6 4724 3894 3266+ MVA  TIOBL SET R7 TO CONTROL BLOCK TO PREPARE 
3151+* CALLING SEQUENCE TL 0038CA 4020 2FCE 0708 3267+ MVWI x O708" -SIOIN INITIALIZE CONDITION CODE STOPAGE 
3152+% IL 0038D0 CB25 2FDO 3268+ MVWZ SISB R3 * AND CLEAR OLD ISB VALUE 
3153+% SUPERVISOF WILL ENTEP HERE IF INTR CC TS AS PEQUESTED IL 0038D4 6EOD 2FD2 3269+ MVW eee SET OP ADDPESS THAT STARTED LAST 1/0 
31544+% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 0038D8 600C 32704 Svc PRED * AND CALL ON SUPV 
3155+% AFTEP THE SPECTAL PART HAS BEEN COMPLETED AND THE TL 0038DA 5601 32714 (pe 2) RETURN TO USER 
3156+* COMMON SECTION IS HANDLED HERE. ‘ IL 3273+* spauectis un (boe2 wueueeaveceacbes STUD 1008s cc ovexeucettee tes 
31574+% ' TL 32744% 
3158+* PETURN CONTROL IL 3275+* SUBROUTINE 
3159+* IL 3276+* 
3160+% SVC -EXIT RETURN TO USER VIA SUPVR IL 327 T+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG EPRORS 

+ 

ALG ZEMRANEREEASEA LENSER ESS EAERLES ERE NEL EE SAAS CEES ER ERTS TRS EORS EE HELE SF 4E FEST 3279+* PUPPOSE 

00382C 706E 3163+INTOK DC X'706E! COPY STATUS ANY LEVEL TNTO R3 TL 3280+* 

00382E 336A 3164+ SRL 13,R3 POSITION INDICATORS IN R3 IL 32814+% DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

003830 4424 2FC6 3165+ MVA  OPTN1,RG SFT UP BASE ADRS IL 3282+* SET THF "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 

003834 4C63 3166+INTR1 TBTS (24 eZ SET INTERRUPT PECEIVED TT 3283+% BEEN FOUND TO HELP THE OPERATOR DEFINE THE EPROP CONDITION. 

003836 4¢C28 3167+ TBT R4-CS TS 'CS TN PROGRESS" ON TL 32844* 

003838 1204 3168+ JON  INTR2 * YES, BCH AROUND UPDATE cae 3285+* CALLING SEQUENCE 

00383A C328 2FCF 3169+ MVB R3,$IOIN+1 SAVE INTERRUPTING CC CODE TL. 3286+% 

00383E 6FOD 2FD0 3170+ MVW R7,SISB SAVE INTR STATUS AND DEV ADRS TL 3287+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIFS: 

003842 31714INTR2 EQU * TL 3288+%* 
3172+% CBPCL RS CURRENT LEVEL COPIED BY DCP TL 32894+* -—-> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 

003842 3521 3173+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 32904#* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 

003844 0501 3174+ ABI 1,85 * IN 'I' BIT TL 3291+%* 

003846 CD24 3002 3775+ CW SINTL,RS IS THIS THE CORRECT INTP LEVEL IL 3292+* RETURN CONTROL 

00384A 1002 3176+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 3293+* 

00384C 4C66 3177+ TBTS (R4,$LE) SET INTP LEVEL EPROP CONTROL BIT IL 33904+% E TURTN* RETURN TO MDI 

O0384E 4C61 3178+ TBTS (R4U,ER SET ERROR ON I/O COMMAND CNTL BIT IL 3295+* OR B (R6) * JF THE DEVICE COULD NOT BE CONNECTED 

003850 4cCa2 3179+INTR3 TBTR (PRU;XT WAS INTERRUPT EXPECTED iad 32964* 
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DECLARED 
2759 
2763 
2807 
2733 
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18 32 
3346 
2588 
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NAHE 
CH PRT 
CM PRW 
CONVT 
CPOID 
cs 
CSA 
CSBUF 
CSDCB 
CSTL8 
DCBUF 
DC2PT 
DEVADD 
DEV1 
DGDCB 
DUMMY 
ENTPT 
EQ 


ER 


EROSV 
EROO 
EXIT 
PAK ETU 
FIVES 
FO00007 


F00010 
F00102 
P00127 
F00131 
F00139 
F00154 
F00164 
F00181 
FO00183 
F00186 
P00197 
FO0216 
FO0218 
F00 221 
F00232 
P00251 
F00253 
F00256 
F00267 
P00286 
F00288 
FO00291 
FO00302 
F00321 
F00323 
F00326 
P00337 
F00356 
F00358 
F00361 








1635245 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFEPENCES 


a ADDRESS. HEX LOCATION (00003650) IN 
: DDRESS. HEX LOCATION(0000365E) IN 
PRESS. HEX LOCATION(00003674) IN 
2 2121 2343 
; OLUTE, HEX VALUE (00000232) 
OLUTE. HEX VALUE (90000028) 
3 3020 3126 3196 
OLUTE. HEX VALUE 00000029) 
2 2191 2395 1 
RESS. HEX LOcATLON (09902 FEC) IN 
2 2146 2193 2220 2397 2825 
gADRPESS. HEX LOCATION (000034DA) IN 
: RESS, HEX LOCATION(OOOO2FFA) IN 
ADDRESS. HEX LOCATION (00002FDC) IN 
; RESS. HEX LOCATION (00003A40) IN 
RESS. HEX LOCATION (09001900 I 
1 2687 2693 269 7 2 
RESS, HEX LOCATION (0000S FD4) IN 
: RESS. HEX LOCATION(0000347A) IN 
OLUTE, HEX VALUE(00000000) 
1487 15 
RESS. HEX LOCATION (00002C36) IN 
OLUTE. HEX VALDE (90000000) 
708 771 85 912 
1 1119 1173 1206 1260 1293 
OLUTE. HEX VALUE (00000021) 
2 2086 2097 2105 2119 2129 
2 2339 2393 3034 3053 3136 
PESS. HEX LOCATION (000035C0) IN 
2 2373 2382 
PESS. HEX LOCATION (00003558) IN 
2 2360 2363 2373 2382 2413 
ABSOLUTE. HEX VALUE (00000006) 
ADDRESS. HEX LOCATION (00003A44) IN 
; RESS. HEX LOCATION(0000355E) IN 
RESS. HEX LOCATION (00002CC2) IN 
736 ©=©853. 940. «So 1027”—S«1:111 


ou 


RESS. HEX LOCATION(00002C5C) IN 
PESS. HEX LOCATION(00002C44) IN 
RESS. HEX LOCATION(00002C7A) IN 
RESS. HEX LOCATION (00002CB6) IN 
RESS. HEX LOCATION(00002CRC) IN 
RESS. HEX LOCATION (00002CE#) IN 
PESS. HEX LOCATION(O0002CEC) IN 
RESS. HEX LOCATION(00002D10) IN 
PESS. HEX LOCATION(00002D16) IN 
RESS. HEX LOCATION(OQO002D1C) IN 
PRESS. HEX LOCATION(000020D22) IN 
RESS. HEX LOCATION(00002D28) IN 
PESS. HEX LOCATION(00002D2EF) IN 
RESS. HEX LOCATION (00002D34) IN 
PESS. HEX LOCATION(00002D32) IN 
RESS. HEX LOCATION(00002D40) IN 
PESS. HEX LOCATION(00002D46) IN 
RESS. HEX LOCATION(00002D4C) IN 
RESS. HEX LOCATION(00002D52) IN 
RESS. HEX LOCATION(00002D58) IN 
PESS. HEX LOCATION(00002D5E) IN 
RESS. HEX LOCATION (00002D64) IN 
PRESS. HEX LOCATION(OQ0002D6A) IN 
RESS. HEX LOCATION(00002D70) IN 
R 
R 
R 
P 
R 
P 


a 


ESS. HEX LOCATION (00002D76) IN 
ESS. HEX LOCATION(OO0002D7C) IN 
FSS. HEX LOCATION(00002D82) IN 
ESS. HEX LOCATION(00002N88) IN 
ESS. HEX LOCATION (OOO0O2D8E) IN 
ESS. HEX LOCATION (O0002D94) IN 
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FOO407 
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FOO435 
FO0438 
FOO4KS 
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F00467 
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GDSEO 
HDOSV 
HEADO 
HEBLK 
HTOE 
IDCBCE1 
IDCBCE2 
IDCBRAP 
IDCBO 
IDCB1 
IDLE 

IN 
INTBL 
INTER 
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INTRNL 


INTRX 
INTR1 
INTR2 
INTR3 
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LINF1 
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N00006 
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ATTRIBUTES AND REFERENCES 


2 
RESS. HEX LOCATION (00002D9A) 
R 


ESS. HEX LOCATION (00002610) 
X LOCATION (000026A4) 

ESS. HEX LOCATION (000026A8) 
RESS. HEX LOCATION (000026BA) 
RESS. HEX LOCATION (00002€CC) 
PESS. HEX LOCATION (000026D0) 
RESS. HEX LOCATION (0000 26D4) 


125 

ADD 

1282 

ADDRESS. HEX LOCATION (00002DA0) 
jADBRESS. HEX LOCATION (00002DA6) 
jARBPESS. HEX LOCATION (00002DAC) 
, ADBRESS. HEX LOCATION (00002DB2) 
ADDRESS. HEX LOCATION (00002 DB8) 
jADDPESS. HEX LOCATION (00002ECO) 
jADBRESS. HEX LOCATION (00002EC6) 
ADDRESS. HEX LOCATION (00002ECC) 
jADDRESS. HEX LOCATION (00002F7C) 
ADDRESS. HEX LOCATION (00002F9F) 
jADBRESS. HEX LOCATION (00002FA4) 
ADDRESS. HEX LOCATION (000035B4) 
2323 2363 2369 2421 

ADDRESS. HEX LOCATION (000035BC) 
2320 2372 2385 

ADDRESS HEX LOCATION (00003580) 
2322 2353 2366 2369 
ghDBRESS. HEX LOCATION (00003A46) 
gABSOLurE HEX VALUE (0000001A) 
ADDRESS. HEX LOCATION (00003644) 
2693 2694 

ADDRESS. HEX LOCATION (00003648) 
2699 2700 

ADDRESS. HEX LOCATION (0000364 C) 
2687 2688 

ADDRESS. HEX LOCATION (0000363C) 
2712. 2713 

ADDRESS. HEX LOCATION (00003640) 
2706 2797 

ABSOLUTE. HEX VALUE (00000002) 
2072 2328 3049 

ABSOLUTE. HEX VALUE(00000023) 
3035 3047 3166 

ghDDRESS. HEX LOCATION (000038A0) 
ABBRESS. HEX LOCATION (00003808) 
ghBDPESS. HEX LOCATION (00003820) 
gADDRESS. HEX LOCATION (00003828) 
yhDDPESS. HEX LOCATION (0000382C) 
ABSOLUTE, HEX VALUE (00000000) 
808 650 895 937 982 10 
1198 1243 1285 1330 1372 
ADDPESS. HEX LOCATION (0000385C) 
3180 3183 

ADDRESS. HEX LOCATION (00003834) 
3131 3135 
gADBPESS. HEX LOCATION (00003842) 
gABDPESS. HEX LOCATION (00003850) 
ADDRESS. HEX LOCATION (00003894) 
1969 1971 2069 2314. 2325 3 
ADDPESS. HEX LOCATION (00003898) 
2896 2899 2902 2914 2917 2 
2939 2947 2951 2954 2958 30 
ADDRESS. HEX LOCATION (0000389h) 
1973. 1975 1977 1979 1981 2 
CSECT. START (00002500) LENGTH (5 
ADDRESS, HEX LOCATION (00003558) 
2100 2111 2113 2180 2181 2 
2808 2810 2813 2820 

ADDRESS. HEX LOCATION (0000396) 
ADDRESS. HEX LOCATION (00002FD2) 
2686 2692 2698 2705 2711 3 
ADDRESS. HEX LOCATION (0000366) 
gABSOLUTE. HEX VALUE (00000020) 
ADDRESS. HEX LOCATION (000038FA) 
3311 3314 

ABSOLUTE. HEX VALUE(00000204) 
ghBSOLOTE. HEX VALUE (0000002C) 
ABSOLUTE. HEX VALUE (00000027) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 


LENGTH ( 2) 


LENGTH (40) 
LENGTH (2) 
LENGTH (4) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 





So ee ee tt 1 


DQDOOOVOUVUOOOOCOOUOUOUVUUOVUVOUUVOUVUODOOVUOOO0 0D 


LIOT2) Ss DISK WRITE TEST PAGE 17A 


COPYRIGIT IBM CORP 1976 


17812 --- P/N= 1635245 EC=755285 
CROSS-PEFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


DISK WRITE TEST P/N=1635245 EC=755285 
CROSS~-FEFEPENCE LISTING 


ATTRIBUTES AND REFEPENCES 


PAGE 17 
COPYRIGHT IBM CORP 1976 


DECLARED NAME DECLARED NAME 


336 1152 N00063 ADDRESS. HEX LOCATION(OO0029FA) IN CSECT(1I7812 ) LENGTH (2) 
675 N00008 ADDRESS. HEX LCCATION(000026D8) IN CSECT(1I7812 ) LENGTH (2) O4 

339 670 1158 N00064 ADDRESS. HEX LOCATION(00002A06) IN CSECT (17812 ) LENGTH (2) 
678 N00009 ADDRESS. HEX LOCATION(000026DC) IN CSECT(I7812 ) LENGTH (2) 507 1141 

342 7 1164 N00065 ADDRESS. HEX LOCATION(00002A12) IN CSECT(I7812 ) LENGTH (2) 
684 N00010 ADDPESS. HEX LOCATION (000026E8) IN CSECT(I7812 ) LENGTH (2) 510 1129 

345 655 1170 N00066 ADDRESS. HEX LOCATION (OOOO2A1E) IN CSECT (17812 ) LENGTH (2) 
6 96 NO0011 ADDRESS. HEX LOCATION (OO0026FA) IN CSECT(1I7812 ) LENGTH (2) 59130 ~=7117 

348 1182 N00067 ADDRESS. HEX LOCATION (00002A30) IN CSECT(I7812 ) LENGTH (2) 
702 N00012 ADDRESS. HEX LOCATION (00002706) IN CSECT(I7812 ) LFNGTH (2) 216 

351 685 1194 N00068 ADDRESS. HEX LOCATION(00002A42) IN CSECT(I7812 ) LENGTH (2) 
705 N00013 ADDPESS. HEX LOCATION(0000270A) IN CSECT(1I7812 ) LENGTH (2) 519 

354 64 1200 N00069 ADDRESS. HEX LOCATION(OOOO2A4F) IN CSECT (17812 ) LENGTH (2) 
717 NO0014 ADDRESS. HEX LOCATION (0000271C) IN CSECT(I7812 ) LENGTH (2) 522 1183 

357 1203 N00070 ADDRESS. HEX LOCATION (00002A52) IN CSECT(I7812 ) LENGTH(2) 
729 N00015 ADDRESS. HEX LOCATION (0000272E) IN CSECT (17812 ) LENGTH (2) 525 1171 

360 1215 N00071 ADDRESS. HEX LOCATION (00002A66) IN CSECT(I7812 ) LENGTH (2) 
735 N00016 ADDRESS. HEX LOCATION(0000273A) IN CSECT(17812 ) LENGTH (2) 528 

363 718 1227 N00072 ADDRESS. HEX LOCATION(O0002A7A) IN CSECT (17812 ) LENGTH (2) 
738 NO00017 ADDRESS. HEX LOCATION(0000273E) IN CSECT(I7812 ) LENGTH (2) 531 

366 706 1239 N00073 ADDRESS. HEX LOCATION (OOOO2A8E) IN CSECT(I7812 ) LENGTH (2) 
750 N00018 ADDRESS. HEX LOCATION (00002750) IN CSECT(I7812 ) LENGTH (2) 534 

369 1245 NOO0074 ADDRESS. HEX LOCATION(00002A9A) IN CSECT(I7812 ) LENGTH (2) 
762 no00019 ADDRESS. HEX LOCATION(00002762) IN CSECT(1I7812 ) LENGTH (2) 537 1228 

372 1251 N00075 ADDRESS. HEX LOCATION(OO002AA6) IN CSECT (17812 ) LENGTH (2) 
768 n00020 ADDRESS. HEX LOCATION(0000276E) IN CSECT (17812 ) LENGTH (2) 540 1216 

375 1257 N00076 ADDRESS. HEX LOCATION(00002AB2) IN CSECT(I7812 ) LENGTH (2) 
780 n00021 ADDPESS. HEX LOCATION (00002782) IN CSECT(I7812 ) LENGTH (2) 543 1204 

378 1269 N00077 ADDRESS. HEX LOCATION(OOO02AC4) IN CSECT(1I7812 ) LENGTH (2) 
792 N00022 ADDRESS. HEX LOCATION(00002796) IN CSECT(I7812 ) LENGTH (2) 546 

381 1281 N00078 ADDRESS. HEX LOCATION(00002AD6) IN CSECT (17812 ) LENGTH (2) 
804 N00023 ADDRESS. HEX LOCATION (000027AA) IN CSECT(1I7812 ) LENGTH (2) 249 

384 1287 N00079 ADDRESS. HEX LOCATION (00002AE2) IN CSECT(I7812 ) LENGTH (2) 
810 N00024 ADDRESS. HEX LOCATION (000027B6) IN CSECT(I7812 ) LENGTH (2) 552. 1270 

387 3 1290 N00080 ADDRESS. HEX LOCATION(OOOO2AE6) IN CSECT (17812 ) LENGTH (2) 
816 N00025 ADDRESS. HEX LOCATION(000027C2) IN CSECT(I7812 ) LENGTH (2) 555 1258 

390 78 1302 N00081 ADDRESS. HEX LOCATION(OOOO2AFA) IN CSECT (17812 ) LENGTH (2) 
822 N00026 ADDRESS. HEX LOCATION(000027CE) IN CSECT (17812 ) LENGTH (2) 558 

393 6 1314 N00082 ADDRESS. HEX LOCATION(00002BOE) IN CSECT(I7812 ) LENGTH (2) 
834 N00027 ADDRESS. HEX LOCATION(000027E0) IN CSECT(1I7812 ) LENGTH (2) 561 

396 1326 N00083 ADDRESS. HEX LOCATION (00002B22) IN CSECT (17812 ) LENGTH (2) 
846 N00028 ADDRESS. HEX LOCATION(000027F2) IN CSECT (17812 ) LENGTH (2) 564 

399 1332 N00084 ADDRESS. HEX LOCATION(00002B2E) IN CSECT(I7812 ) LENGTH (2) 
852 N00029 ADDRESS. HEX LOCATION(000027FE) IN CSECT(1I7812 ) LENGTH (2) 567 1315 

402 8 1338 N00085 ADDRESS. HEX LOCATION (00002B3A) IN CSECT(I7812 ) LENGTH (2) 
855 N00030 ADDRESS. HEX LOCATION (00002802) IN CSECT(17812 ) LENGTH (2) 570 1303 

405 82 1344 N00086 ADDRESS. HEX LOCATION(00002B46) IN CSECT(1I7812 ) LENGTH (2) 
867 N00031 ADDRESS. HEX LOCATION(00002816) IN CSECT(I7812 ) LENGTH (2) 573 1291 

408 1356 N00087 ADDRESS. HEX LOCATION(00002B58) IN CSECT(I7812 ) LENGTH (2) 
879 N00032 ADDRESS. HEX LOCATION(0000282A) IN CSECT(I7812 ) LENGTH (2) 576 

414 1368 N00088 ADDRESS. HEX LOCATION(00002B6A) IN CSECT(I7812 ) LENGTH (2) 
891 400033 ADDRESS. HEX LOCATION (0000283E) IN CSECT(I7812 ) LENGTH(2) 579 

414 1374 N00089 ADDRESS. HEX LOCATION(00002B76) IN CSECT(I7812 ) LENGTH (2) 
897 N00034 ADDRESS. HEX LOCATION(0000284A) IN CSECT(I7812 ) LENGTH(2) 582 1357 

417 880 1377 N00090 ADDRESS. HEX LOCATION(00002B7A) IN CSECT(I7812 ) LENGTH (2) 
903 N00035 ADDRESS. HEX LOCATION(00002856) IN CSECT (17812 ) LENGTH (2) 585 1345 

420 868 1389 N00091 ADDRESS. HEX LOCATION(00002B8E) IN CSECT(1I7812 ) LENGTH (2) 
909 N00036 ADDRESS. HEX LOCATION(00002862) IN CSECT(1I7812 ) LENGTH (2) 588 

423 856 1401 N00092 ADDRESS. HEX LOCATION(O0002BA2) IN CSECT (17812 ) LENGTH (2) 
921 N00037 ADDRESS. HEX LOCATION(00002874) IN CSECT(1I7812 ) LENGTH (2) 591 

426 1413 N00093 ADDRESS. HEX LOCATION(00002BB6) IN CSECT(I7812 ) LENGTH (2) 
933 N00038 ADDRESS. HEX LOCATION (00002886) IN CSECT(1I7812 ) LENGTH (2) 594 1501 

429 1416 NO0094 ADDRESS. HEX LOCATION (OOOO2EBA) IN CSECT(17812 ) LENGTH (2) 
939 N00039 ADDRESS. HEX LOCATION(00002892) IN CSECT(1I7812 ) LENGTH (2) 597 1402 

432 9 1422 N00095 ADDRESS. HEX LOCATION(00002BC6) IN CSECT(I7812 ) LENGTH(2) 
942 nNo0040 ADDRESS. HEX LOCATION(00002896) IN CSECT (17812 ) LENGTH (2) 600 1390 

435 91 1428 N00096 ADDRESS. HEX LOCATION(00002BD2) IN CSECT(I7812 ) LENGTH (2) 
954 N00041 ADDRESS. HEX LOCATION (000028AA) IN CSECT(I7812 ) LENGTH (2) 603 1378 

438 1440 N00097 ADDRESS. HEX LOCATION(O00002BE4) IN CSECT(I7812 ) LENGTH (2) 
966 N00042 ADDRESS. HEX LOCATION (000028BE) IN CSECT(I7812 ) LENGTH (2) 606 

uu4 1452 n00098 ADDRESS. HEX LOCATION(00002BF6) IN CSECT(1I7812 ) LENGTH (2) 
978 N00043 ADDRESS. HEX LOCATION(000028D2) IN CSECT (17812 ) LENGTH (2) 609 1504 

44y 1455 N00099 ADDRESS. HEX LOCATION(OOOO2FFA) IN CSECT(1I7812 ) LENGTH (2) 
984 Noo044 ADDRESS. HEX LOCATION (000028DE) IN CSECT(1I7812 ) LENGTH (2) 612 1441 

4u7 96 1458 N00100 ADDRESS. HEX LOCATION(OOQOO2BFE) IN CSECT(I7812 ) LENGTH (2) 
990 NOOO45 ADDRESS. HEX LOCATION(000028EA) IN CSECT(I7812 ) LENGTH(2) 615 1429 

450 955 1464 N00101 ADDRESS. HEX LOCATION(O0002COA) IN CSECT(I7812 ) LENGTH (2) 
996 NO0046 ADDRESS. HEX LOCATION (000028F6) IN CSECT (17812 ) LENGTH (2) 618 739 

453 943 1476 N00102 ADDRESS. HEX LOCATION(00002C1C) IN CSECT(I7812 ) LENGTH (2) 
1008 N00047 ADDRESS. HEX LOCATION (00002908) IN CSECT(I7812 ) LENGTH (2) 621 

456 1482 N00103 ADDRESS. HEX LOCATION(00002C28) IN CSECT(I7812 ) LENGTH (2) 
10 20 NOO0048 ADDRESS. HEX LOCATION (0000291A) IN CSECT(I7812 ) LENGTH (2) 624 1465 

459 61 OF ABSOLUTE. HEX VALUE (00000202) 
1026 NO0049 ADDRESS. HEX LOCATION (00002926) IN CSECT (17812 ) LENGTH (2) 657 

462 100 60 ON ABSOLUTE. HE VALUE (90000200) 
1029 n00050 ADDRESS. HEX LOCATION (0000292A) IN CSECT(I7812 ) LENGTH (2) 687 720 44 783 795 837 870 882 924 

“ES 957 969 1011 1048 1056 1098 1131 1143 1185 
1041 yo0051 ADDRESS. HEX LOCATION (0000293E) IN CSECT (17812 ) LENGTH (2) 1218 1230 1272 1305 1317 1359 1392 1404 1443 

468 1721 OPTN1 ADDRESS. HEX LOCATION (00002FC6) IN CSECT(1I7812 ) LENGTH (2) 
1053 N00052 ADDRESS. HEX LOCATION (00002952) IN CSECT (17812 ) LENGTH (2) 1963 2059 2300 3125 3165 

671 1744 OPTN3 ADDRESS. HEX LOCATION(OO002FCA) IN CSECT(1I7812 ) LENGTH (2) 
1065 N00053 ADDRESS. HEX LOCATION (00002966) IN CSECT(I7812 )} LENGTH (2) 3212 3260 

474 104 PARMARA ADDRESS. HEX LOC ATION (00001965) IN CSECT(I7812 LENGTH (1) 
1071 NO0054 ADDRESS. HEX LOCATION (00002972) IN CSECT(I7812 ) LENGTH (2) 652 664 694 715 727 8 760 778 790 

477 105 802 832 B4Y 865 877 889 919 931 952 
1077 N00055 ADDRESS. HEX LOCATION(0000297E) IN CSECT(1I7812 ) LENGTH (2) 964 976 1006 1018 1039 1051 1063 1093 1105 

480 104 1126 1138 1150 1180 1192 1213 1225 1237 1267 
1083 N00056 ADDRESS. HEX LOCATION(0000298A) IN CSECT(17812 ) LENGTH (2) eae ue Vag 1324 1354 1366 1387 1399 1411 
1095 N00057 ADDRESS. HEX LOCATION (0000299C) IN CSECT (17812 ) LENGTH (2) 26 28 PASS1 Se eee ae ee) IN CSECT (17812 ) LENGTH (2) 
1107 N00058 ADDRESS. HEX LOCATION(OOO029AE) IN CSECT(I7812 ) LENGTH (2) 2586 PHYSC ADDRESS. HEX Be ORO ot ane OG IN CSECT(I7812 4 LENGTH (2) 

489 2102 2122 2123 2124 2125 2344 2815 2817 2822 
1113 n00059 ADDRESS. HEX LOCATION(000029BA) IN CSECT(I7812 ) LENGTH (2) 72 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(I7812 } LENGTH (1) 

492 109 74 75 76 77 78 719 80 81 2 
1116 W00060 ADDRESS. HEX LOCATION(000029BE) IN CSECT (17812 ) LENGTH (2) 83 By 85 86 87 88 89 90 94 

495 108 92 93 94 95 96 97 98 99 100 
1128 N00061 ADDRESS. HEX LOCATION(000029D2) IN CSECT(1I7812 ) LENGTH (2) 101 102 103 104 105 106 107 108 109 

498 110 111 112 113 114 115 3315 
1140 N00062 ADDRESS. HEX LOCATION (000029E6) IN CSECT(1I7812 ) LENGTH (2) 3347 PIDMSG 10 gi bSOLUTE. HEX VALUE (OO00OF1FO) 
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NAME 
PREP 
RDDCB 
RDID1 
RESET 
RICB 
RID 

RKDCB 
RS DCB 
RTTO1 
SCTID 


SCTST 
SKDCB 


START 
STATS 
SUPSTAT 
TT303 
TT3 04 
TT4yY 
TUMSGWTR 
TUPARM1 
TURESUL 


TURTN 
TUSTATUS 
TUWORK 
TI2A 
T12B 
T12C 
T12D 
TI2E 
T12F 
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TS1A 
TOTAA 
T51B 
T51BB 
T51CC 
T51E 
T51H 
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T5172 
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T51YY 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ABSOLUTE. HEX VALUE(0000000C) 


HEX LOCATION (0000366A) IN 

- HEX LOCATION(000018BA) IN 

HEX LOCATION(0000189A) IN 
2335 


ESS. 
67 

RESS. HEX LOC ATTON (0000 18C8) IN 
68 2074 2075 2076 20 
76 2425 

RESS. HEX LOCATION(00003004) IN 
57 2298 3325 

RESS. HEX LOCATION(00001818) IN 


HEX LOCATION(0000181A) IN 
HEX LOCATION(00003068) IN 
RESS. HEX LOCATION(0000306E) IN 
RESS. HEX LOCATION(00003072) IN 
RESS. HEX LOCATION(00003076) IN 
RESS. HEX LOCATION(0000306A) IN 


1992, 1954 
RESS. HEX LOCATION(0000307A) IN 


3270 
; DRESS. HEX LOCATION (0000350A) IN 
: DRESS. HEX LOCATION(0000340E) IN 

SOLUTE, HEX VALUE (00000008) 
1970 2070 23 
gbgOLUTE. HEX VALUE (00000013) 

SOLUTE. HEX VALUE (00000009) 
1972. 2315 

DRESS. HEX LOCATION (0000352A) IN 
2125 2923 2928 2935 2936 

DRESS. HEX LOCATTON (OOOOS4AA IN 
2099 2102 2122 2341 2344 2902 
‘ DRESS. HEX LOCATION (000036a2) IN 

DRESS. HEX LOCATION(00002FD4) IN 
2107 2109 2131 2346 2348 2350 
2764 2845 2904 2907 2925 2928 

DRESS. HEX LOCATION(0000356E) IN 
2760 2936 2941 2944 

DRESS. HEX LOCATION(000034CA) IN 
2092 2093 2094 2115 2116 2167 
2336 2350 2896 
giBSOLUTE. HEX VALUE (0000000a) 

DRESS. HEX LOCATION (000035C8 IN 
2146 2147 2158 2193. 2194 2205 
ADDRESS. HEX LOCATION (000019C4) 
aADBPESS. HEX LOCATION (0000369A) IN 

DRE HEX LOCATION(000036B2) IN 
2807 2818 
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LOCATION (00003466) 
HEX LOCATION (00003390) IN 
HEX LOCATION(00003472) IN 
RESS. HEX LOCATION(00003468) IN 
RESS. HEX LOCATION(00003360) IN 
RESS. HEX LOCATION (000033A0) IN 
RESS. HEX LOCATION(000033F6) IN 
S, HEX LOCATION (0000338a) IN 
S. HEX LOCATION (000033BC) IN 
3 HEX LOCATION(000033D0) IN 
S. HEX LOCATION(000033EC) IN 
: 

S 

$ 
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Nw NH NO NH NO NY NY NH NY NW 


nN 


. HEX LOCATION (00003476) IN 
77. 2388 2420 24 

- HEX LOCATION (000032D0) IN 
HEX LOCATION(00003322) IN 
HEX LOCATION(000032D6) IN 
PESS. HEX LOCATION (0000330A) IN 
RESS. HEX LOCATION (00003400) IN 
RESS. HEX LOCATION(0000340A) IN 
RESS. HEX LOCATION (000032F8) IN 
RESS. HEX LOCATION (00003452) IN 


2394 2414 
PESS. HEX LOCATION(00003450) IN 


NO bw NO NO NH DO NHN NM NH 
OVOUD 20D OVUOOWOIOV OV OV aADIONONY SOUIDUID UNION SUUID WU SOU aAIUID DOOYOO NO JNO TO OOO NO AN AONngongonody =O SFOWWWUOOHDO HOO ABO UONO WOODS Om ~) 


NO 


CSECT (17812 
CSECT (17812 


CSECT(I7812 
SECT (17812 
907. 2939 
SECT (17812 
SECT (17812 
478 2490 
CSECT (I7812 


CSECT (17812 
2168 2334 


T ( 2 
( 2 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 


CSECT (17812 
2310 2311 


CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (I7812 
CSECT (17812 
CSECT(1I7812 
CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT (17812 
1130 118 
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CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT(I7812 
CSECT(I7812 
CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT (17812 
CSECT(1I7812 
CSECT (17812 
CSECT(I7812 
CSECT(I7812 
CSECT(17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 


CSECT(1I781 
2397 2398 
CSECT (1781 
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COPYRIGHT IBM CORP 1976 


) LENGTH (2) 
) LENGTH (4) 


) LENGTH (2) 
LENGTH (2) 

) LENGTH (4) 
LENGTH (2 
ashe a 


) LENGTH (2) 
LENGTH (2 
2345 se 


LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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UJ 
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LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
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LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 


17812 --- 


DECLARED 
2419 
2412 
24 10 
2413 
2328 
1961 
2072 
2298 
2057 


2180 
2218 
2208 
2219 
2157 
2151 
2154 
2216 
2222 
2161 
2082 
2201 
2178 
2198 
2173 
2183 
2121 
2209 
2204 
2215 
2224 
2068 
2071 
2069 
2186 
2092 
2111 
2115 
2101 
2528 
2550 
2517 
2589 
2461 
2993 
1760 
1758 
3013 


3194 
3201 
3018 
3203 
3212 
3087 
3022 
3035 


DISK WRITE TEST 


NAME 
T512 
T513 
T514 
T516 
T751 
T7812 
T784 
T7851 
T7884 


T84UA 
T84AA 
T84B 
T84UBB 
T84C 
T84CC 
T84DD 
TS4E 
T84EE 
T84F 
TS4UFF 
T846G 
T84H 
TS4HH 
T84I 
T84Id 
T84K 
T84KK 
T84L 
T84R 
T84T 
T84TC 
T84T1 
T84T2 
T84WR 
T84Z 
T842 
T843 
T844 
VRDCB 
WKDCB 
WRDCB 
WRSID 
WSDCB 
WSIDT 
XE 

XT 
XIO 


XTOCK 
XIOCO 
XIOCS 
XIOCV 
XIOCX 
XIOER 
XTO1 

XTO2 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX LOCATION (00003456) IN 
aRDDRESS. HEX LOCATION (00003446) IN 
ADDRESS. HEX LOCATION(00003442) IN 
RESS. HEX LOCATION(00003448) IN 
RESS. HEX LOCATION (00003326) IN 
PESS, HEX LOCATION (00003014) IN 
RESS. HEX LOCATION(000030B2) IN 
RESS; HEX LOCATION (000032AC) IN 


44 1031 1118 1205 
HEX Sage eae an IN 
824 911 998 1085 


Ao vie 
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7 
O NEX LOCATION (0000322C) IN 
“HBX LOCATION (00003296) IN 
HEX LOCATION (0000327A) IN 
HEX LOCATION (00003298) IN 
HEX LOCATION (000031F2) IN 
DRESS. HEX LOCATION (000031E6) IN 
RESS. HEX LOCATION(000031EC) IN 
RESS. HEX LOCATION (00003292) IN 
RESS. HEX LOCATION (000032A4) IN 
RES: HEX LOCATION (000031FE) IN 
RESS. HEX LOCATION (000030D0) IN 
RESS. HEX LOCATION (00003268) IN 
RESS. HEX LOCATION(00003228) IN 
PESS. HEX LOCATION (00003262) IN 
ESS. HE X LOCATION (00003224) IN 

2179 2184 220 
S. HE % LOCATION (0066323) IN 
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DRESS. HEX LOCATION (0000316C) IN 
DPESS. HEX LOCATION (0000327C) IN 
DRESS. HEX LOCATION (0000326E) IN 
DPESS, HEX LOCATION (0000328E) IN 
DRESS. HEX LOCATION (000032A8) IN 
DRESS. HEX LOCATION (000030A2) IN 
DPESS. HEX LOCATION (000030AE) IN 
D . HEX LOCATION(000030A8) IN 
D HEX LOCATION(0000323E) IN 
D . HEX LOCATION (000030F4) IN 
D HEX LOCATION (00003142) IN 
D - HEX LOCATION(00003154) IN 
D . HEX LOCATION(0000311E) IN 
D . HEX LCCATION(O00034FA) IN 
D . HEX LOCATION (0000351A) IN 
4 31 3932-29 2948 

D . HEX LOCATION(O00034EA) IN 
D E LOCATTON (00003560), IN 
8 5 2846 2952 
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OCATION(0000385E) IN 
S. HEX LOCATION(00003870) IN 
HEX LOCATION(000037A0) IN 
HEX LOCATION(00003874) IN 
SS. HEX LOCATION(0000388E) IN 
RESS. HEX LOCATION(000037FC) IN 
RESS. HEX LOCATION(000037B0) IN 
RESS. HEX LOCATION(000037D6) IN 


CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT (17812 
CSECT(I7812 
CSECT (I7812 
CSECT (17812 
CSECT (17812 
03520 td}. 
1172. 1259 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (37812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT(I7812 
CSECT (17812 
CSECT (17812 
CSECT (17812 


CSECT (17812 
2761 2932 


CSECT (17812 
2929 2933 


CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT (17812 
CSECT(I7812 
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PAGE 18A 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 


LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4) 


LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
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17812 --- DISK WRITE TEST P/N= 1635245 EC=755285 PAGE 19 
CROSS-REFERENCE LISTING COPYRIGIT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES 
3021 
3047 XIO8 sao HEX LOCATION(000037EA) IN CSECT (17812 ) LENGTH (2) 
65 XTRNL ABSOLUTE, HEX easter, 
682 700 733 766 814 820 901 907 988 
994 1075 1081 1162 1168 1249 1255 1336 1342 
1420 1426 1462 1480 1486 
2571 ZEROO ADDRESS. HEX LOCATION(0000353A) IN CSECT(I7812 ) LENGTH (2) 
2107) 2131 2346 2376 2808 
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